home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / save'screen.l < prev    next >
Text File  |  2007-02-28  |  638b  |  25 lines
  1. 9000 PROC SAVE'SCREEN(FILENAME$) 
  2. 9010 DIM NAME$ OF 20
  3. 9020 NAME$:=FILENAME$+".HRG,W,PRG"
  4. 9030 OPEN FILE 1,NAME$,WRITE
  5. 9040 ML'SCR'SAVE
  6. 9050 PRINT FILE 1: CHR$(0)+CHR$(224),
  7. 9060 FOR ADDR:=57344 TO 65345 DO
  8. 9070 BIT'MAP'HI:=INT(ADDR/256)
  9. 9080 BIT'MAP'LO:=ADDR-BIT'MAP'HI*256
  10. 9090 POKE 839,BIT'MAP'LO
  11. 9100 POKE 840,BIT'MAP'HI
  12. 9110 SYS 828
  13. 9120 PRINT FILE 1: CHR$(PEEK(1000)),
  14. 9130 ENDFOR ADDR
  15. 9140 CLOSE FILE 1
  16. 9150 ENDPROC SAVE'SCREEN
  17. 9160 //
  18. 9170 PROC ML'SCR'SAVE 
  19. 9180 FOR I:=828 TO 850 DO
  20. 9190 READ X
  21. 9200 POKE I,X
  22. 9210 ENDFOR I
  23. 9220 DATA 165,1,141,132,3,120,73,7,133,1,173,0,0,141,232,3,173,132,3,133,1,88,96
  24. 9230 ENDPROC ML'SCR'SAVE
  25.